home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 November / Ahoy_Magazine_87-11_1987_Double_L.d64 / Maze Demo 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  212b  |  7 lines
  1. 0 rem *** rolling ball demo ... c-64 ***
  2. 1 poke53280,0:poke53281,0:printchr$(158)
  3. 2 sys52800:a=1105:x(1)=1:x(2)=-40:x(3)=-1:x(4)=40:pokea,81
  4. 3 b=a+x(c):ifpeek(b)=32thenpokeb,81:pokea,32:a=b:c=c+2:ifc>4thenc=c-4
  5. 4 c=c-1:ifc<0thenc=4
  6. 5 goto3
  7.